* lisp/isearch.el (isearch-toggle-word): Fix toggle

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 62899ab8298fafc89c221a2cf4681d34ec629208..a103c5ab59bc7bb58566aab9ff3f5000849f2364 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1500,7 +1500,7 @@ Use `isearch-exit' to quit without signaling."
   "Toggle word searching on or off."
   ;; The status stack is left unchanged.
   (interactive)
-  (setq isearch-word (not isearch-word))
+  (setq isearch-word (if (eq isearch-word t) nil t))
   (if isearch-word (setq isearch-regexp nil))
   (setq isearch-success t isearch-adjusted t)
   (isearch-update))